home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / 1520.BIN / 1520 MAN.DEMOS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.9 KB  |  485 lines
  1. 100 REM 1520 MANUAL DEMO PROGRAMS
  2. 110 REM E.G. HAMNER/FUNHUG/JUNE 85
  3. 120 P=53280:POKEP,11:POKEP+1,11:POKE646,15
  4. 130 PRINT"[147]           1520 MANUAL DEMOS            "
  5. 140 PRINT"CHOOSE ANY DESIGN:"
  6. 150 PRINT" A  CONCENTRIC CIRCLES"
  7. 160 PRINT" B  CONCENTRIC SQUARES"
  8. 170 PRINT" C  ROTATING TRIANGLES"
  9. 180 PRINT" D  CONE"
  10. 190 PRINT" E  CIRCLE MADE FROM CIRCLES"
  11. 200 PRINT" F  ROTATING ELLIPSES"
  12. 210 PRINT" G  ARCHIMEDIAN SPIRAL"
  13. 220 PRINT" H  GEOMENTRIC DESIGN"
  14. 230 PRINT" I  CHECKER BOARD"
  15. 240 PRINT" J  CROSS HATCHING"
  16. 250 PRINT" K  CHANGING FORMS"
  17. 260 PRINT" L  ROTATING FIGURES"
  18. 270 PRINT" M  BAR CHART #1"
  19. 280 PRINT" T  TEXT DUMP DEMO"
  20. 290 PRINT" X  END"
  21. 300 REMPRINT" X                  "
  22. 310 INPUT"YOUR CHOICE:  X[157][157][157]";A$
  23. 320 IFA$="A"THENGOSUB490
  24. 330 IFA$="B"THENGOSUB720
  25. 340 IFA$="C"THENGOSUB970
  26. 350 IFA$="D"THENGOSUB1210
  27. 360 IFA$="E"THENGOSUB1420
  28. 370 IFA$="F"THENGOSUB1650
  29. 380 IFA$="G"THENGOSUB1880
  30. 390 IFA$="H"THENGOSUB2070
  31. 400 IFA$="I"THENGOSUB2320
  32. 410 IFA$="J"THENGOSUB2680
  33. 420 IFA$="K"THENGOSUB3070
  34. 430 IFA$="L"THENGOSUB3430
  35. 440 IFA$="M"THENGOSUB3690
  36. 450 IFA$="T"THENGOSUB4860
  37. 460 IFA$="X"THENEND
  38. 470 GOTO130
  39. 480 END
  40. 490 PRINT"[147]CONCENTRIC CIRCLES"
  41. 500 OPEN4,6
  42. 510 OPEN1,6,1
  43. 520 OPEN2,6,2:C=0
  44. 530 PRINT#1,"M";240,-240
  45. 540 PRINT#1,"I"
  46. 550 FORL=30TO180STEP30
  47. 560 C=C+1:IFC>=4THENC=0
  48. 570 PRINT#2,C
  49. 580 FORZ=1TO15
  50. 590 FORI=0TO360 STEP 10
  51. 600 X=(Z+L)*SIN(I*(null)/180)
  52. 610 Y=(Z+L)*COS(I*(null)/180)
  53. 620 IFI=0THENPRINT#1,"R";X,Y:GOTO640
  54. 630 PRINT#1,"J";X,Y
  55. 640 NEXT I
  56. 650 NEXT Z
  57. 660 NEXT L
  58. 670 PRINT#1,"R";0,-240
  59. 680 PRINT#4:PRINT#4:PRINT#4
  60. 690 OPEN7,6,7:PRINT#7
  61. 700 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  62. 710 RETURN
  63. 720 PRINT"[147]CONCENTRIC SQUARES
  64. 730 [159]4,6
  65. 740 [159]1,6,1
  66. 750 [159]2,6,2:C[178]0
  67. 760 [152]1,"M";240,[171]240
  68. 770 [152]1,"I"
  69. 780 [129]I[178]0[164]90 [169] 10
  70. 790 C[178]C[170]1:[139]C[177][178]4[167]C[178]0
  71. 800 [152]2,C
  72. 810 [129]J[178]1[164]11
  73. 820 X[178]I[170]J
  74. 830 Y[178]I[170]J
  75. 840 [152]1,"R";X;[171]Y
  76. 850 [152]1,"J";X,Y
  77. 860 [152]1,"J";[171]X;Y
  78. 870 [152]1,"J";[171]X;[171]Y
  79. 880 [152]1,"J";X;[171]Y
  80. 890 [130] J
  81. 900 [130] I
  82. 910 [152]4:[152]4:[152]4
  83. 920 [152]1,"R";0,[171]200
  84. 930 [159]7,6,7
  85. 940 [152]7
  86. 950 [160]4:[160]1:[160]2:[160]7
  87. 960 [142]
  88. 970 [153]"LOADROTATING TRIANGLES
  89. 980 OPEN4,6
  90. 990 OPEN1,6,1
  91. 1000 OPEN2,6,2:C=4
  92. 1010 PRINT#1,"M";240,-200
  93. 1020 PRINT#1,"I"
  94. 1030 N=3:L=160
  95. 1040 FORA=0TO360/N STEP10
  96. 1050 C=C+1:IFC>=4THENC=0
  97. 1060 PRINT#2,C
  98. 1070 TH=A*(null)/180
  99. 1080 FOR I=0TO N
  100. 1090 X=L*SIN(TH+I*2*(null)/N)
  101. 1100 Y=L*COS(TH+I*2*(null)/N)
  102. 1110 IFI=0THENPRINT#1,"R";X,Y:GOTO1130
  103. 1120 PRINT#1,"J";X,Y
  104. 1130 NEXT I
  105. 1140 NEXT A
  106. 1150 PRINT#1,"R";0,-200
  107. 1160 PRINT#4:PRINT#4:PRINT#4
  108. 1170 OPEN7,6,7
  109. 1180 PRINT#7
  110. 1190 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  111. 1200 RETURN
  112. 1210 PRINT"[147]CONE
  113. 1220 [159]4,6
  114. 1230 [159]1,6,1
  115. 1240 [159]2,6,2:C[178]4
  116. 1250 [152]1,"M";240,[171]200
  117. 1260 [152]1,"I"
  118. 1270 [129]L[178]5[164]150[169]5
  119. 1280 [152]2,"I"
  120. 1290 [129]I[178]0[164]360[169]10
  121. 1300 X[178]L[172][191](I[172][255][173]180)
  122. 1310 D[178]L[172]2:Y[178][171]240[170]D[170]L[172][190](I[172][255][173]180)
  123. 1320 [139]I[178]0[167][152]1,"R";X,Y:[137]1340
  124. 1330 [152]1,"J";X,Y
  125. 1340 [130] I
  126. 1350 [130] L
  127. 1360 [152]1,"R";0,[171]300
  128. 1370 [152]4:[152]4:[152]4
  129. 1380 [159]7,6,7
  130. 1390 [152]7
  131. 1400 [160]4:[160]1:[160]2:[160]7
  132. 1410 [142]
  133. 1420 [153]"LOADCIRCLE MADE FROM CIRCLES
  134. 1430 OPEN4,6
  135. 1440 OPEN1,6,1
  136. 1450 OPEN2,6,2:PRINT#2,2
  137. 1460 PRINT#1,"M";240,-200
  138. 1470 PRINT#1,"I"
  139. 1480 INPUT"ENTER SIZE OF CIRCLES (12-80):";PT
  140. 1490 IFPT<12ORPT>80THEN1480
  141. 1500 L=PT:R=80
  142. 1510 FORJ=0TO360STEP15
  143. 1520 FORI=0TO360STEP10
  144. 1530 X=R*SIN(J*(null)/180)+L*SIN(I*(null)/180)
  145. 1540 Y=R*COS(J*(null)/180)+L*COS(I*(null)/180)
  146. 1550 IFI=0THENPRINT#1,"R",;X,Y:GOTO1570
  147. 1560 PRINT#1,"J";X,Y
  148. 1570 NEXT I
  149. 1580 NEXT J
  150. 1590 PRINT#1,"R",0,-100
  151. 1600 PRINT#4:PRINT#4:PRINT#4:
  152. 1610 OPEN7,6,7
  153. 1620 PRINT#7
  154. 1630 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  155. 1640 RETURN
  156. 1650 PRINT"[147]R0TATING ELLIPSES
  157. 1660 [159]4,6
  158. 1670 [159]1,6,1
  159. 1680 [159]2,6,2:[152]2,3
  160. 1690 [152]1,"M";240,[171]200
  161. 1700 [152]1,"I"
  162. 1710 A[178]180:B[178]60:TH[178][255][173]180
  163. 1720 [129]J[178]0[164]180[169]15
  164. 1730 [129]I[178]0[164]360[169]15
  165. 1740 R[178]A[172][190](I[172]TH)
  166. 1750 L[178]B[172][191](I[172]TH)
  167. 1760 X[178]R[172][190](J[172]TH)[171]L[172][191](J[172]TH)
  168. 1770 Y[178]R[172][191](J[172]TH)[171]L[172][190](J[172]TH)
  169. 1780 [139]I[178]0[167][152]1,"R";X,Y:[137]1800
  170. 1790 [152]1,"J";X,Y
  171. 1800 [130] I
  172. 1810 [130] J
  173. 1820 [152]1,"R";0,[171]200
  174. 1830 [152]4:[152]4:[152]4
  175. 1840 [159]7,6,7
  176. 1850 [152]7
  177. 1860 [160]4:[160]1:[160]2:[160]7
  178. 1870 [142]
  179. 1880 [153]"LOADARCHIMEDIAN  SPIRAL
  180. 1890 OPEN4,6
  181. 1900 OPEN1,6,1
  182. 1910 OPEN2,6,2:PRINT#2,0
  183. 1920 PRINT#1,"M";240,-200
  184. 1930 PRINT#1,"I"
  185. 1940 P=9:A=4
  186. 1950 FORTH=0TOA*2*(null)STEP(null)/24
  187. 1960 X=P*TH*COS(TH)
  188. 1970 Y=P*TH*SIN(TH)
  189. 1980 IFTH=0THENPRINT#1,"R";X,Y:GOTO2000
  190. 1990 PRINT#1,"J";X,Y
  191. 2000 NEXT TH
  192. 2010 PRINT#1,"R";0,-240
  193. 2020 PRINT#4:PRINT#4:PRINT#4
  194. 2030 OPEN7,6,7
  195. 2040 PRINT#7
  196. 2050 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  197. 2060 RETURN
  198. 2070 PRINT"[147]GEOMETRIC DESIGN
  199. 2080 [159]4,6
  200. 2090 [159]1,6,1
  201. 2100 [159]2,6,2:[152]2,2
  202. 2110 [152]1,"M";000,[171]260
  203. 2120 [152]4
  204. 2130 [133]"ENTER NUMBER OF POINTS (3-32):";PT
  205. 2140 [139]PT[179]3[176]PT[177]32[167]2130
  206. 2150 N[178]PT:L[178]160
  207. 2160 [129]J[178]0[164]N[171]1
  208. 2170 [129]I[178]0[164]J[171]1
  209. 2180 X1[178]240[170]L[172][190](2[173]N[172]J[172][255])
  210. 2190 Y1[178]100[170]L[172][191](2[173]N[172]J[172][255])
  211. 2200 X2[178]240[170]L[172][190](2[173]N[172]I[172][255])
  212. 2210 Y2[178]100[170]L[172][191](2[173]N[172]I[172][255])
  213. 2220 [152]1,"M";X1,Y1
  214. 2230 [152]1,"D";X2,Y2
  215. 2240 [130] I
  216. 2250 [130] J
  217. 2260 [152]1,"M";0,[171]100
  218. 2270 [152]4:[152]4:[152]4
  219. 2280 [159]7,6,7
  220. 2290 [152]7
  221. 2300 [160]4:[160]1:[160]2:[160]7
  222. 2310 [142]
  223. 2320 [153]"LOADCHECKERBOARD
  224. 2330 OPEN4,6
  225. 2340 OPEN1,6,1
  226. 2350 PRINT"COLOR: 0...BLACK"
  227. 2360 PRINT"       1...BLUE"
  228. 2370 PRINT"       2...GREEN"
  229. 2380 PRINT"       3...RED"
  230. 2390 INPUT"ENTER COLOR (0-3):";CC
  231. 2400 IFCC<0ORCC>3THEN2390
  232. 2410 OPEN2,6,2:PRINT#2,CC
  233. 2420 PRINT#1,"M"; 60,-360
  234. 2430 PRINT#1,"I"
  235. 2440 B=360
  236. 2450 FORR=0TO8:D=B/8
  237. 2460 PRINT#1,"R";0;D*R
  238. 2470 PRINT#1,"J";B;D*R
  239. 2480 NEXTR
  240. 2490 FORC=0TO8:W=B/8
  241. 2500 PRINT#1,"R";W*C;0
  242. 2510 PRINT#1,"J";W*C;B
  243. 2520 NEXTC
  244. 2530 FORJ=0TO7
  245. 2540 A=J-2*INT(J/2)
  246. 2550 FORI=ATO7STEP2
  247. 2560 FORV=0TOD
  248. 2570 PRINT#1,"R";I*W;J*D+V
  249. 2580 PRINT#1,"J";(I+1)*W;J*D+V
  250. 2590 NEXT V
  251. 2600 NEXT I
  252. 2610 NEXT J
  253. 2620 PRINT#1,"H"
  254. 2630 PRINT#4:PRINT#4:PRINT#4
  255. 2640 OPEN7,6,7
  256. 2650 PRINT#7
  257. 2660 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  258. 2670 RETURN
  259. 2680 PRINT"[147]HATCHING
  260. 2690 [159]4,6
  261. 2700 [159]1,6,1
  262. 2710 [153]"COLOR: 0...BLACK"
  263. 2720 [153]"       1...BLUE"
  264. 2730 [153]"       2...GREEN"
  265. 2740 [153]"       3...RED"
  266. 2750 [133]"ENTER COLOR (0-3):";CC
  267. 2760 [139]CC[179]0[176]CC[177]3[167]2750
  268. 2770 [159]2,6,2:[152]2,CC:[143] COLOR
  269. 2780 X[178]0:[129]D[178]2[164]15[169]2
  270. 2790 [152]1,"M";X,[171]100:X[178]X[170]60
  271. 2800 [152]1,"I"
  272. 2810 A[178]50:B[178]100
  273. 2820 [152]1,"J";0;B
  274. 2830 [152]1,"J";A;B
  275. 2840 [152]1,"J";A;0
  276. 2850 [152]1,"J";0;0
  277. 2860 P1[178][171]B:Q1[178]B:P2[178]0:Q2[178]A[170]B
  278. 2870 [141]3000
  279. 2880 [139]Q2[179]D[167][130]D:[137]2960
  280. 2890 [152]1,"R";X1;Y1
  281. 2900 [152]1,"R";X1;Y2
  282. 2910 [141]3000
  283. 2920 [152]1,"R";X2;Y2
  284. 2930 [152]1,"J";X1;Y1
  285. 2940 [137]2870
  286. 2950 [152]1,"M";0;[171]120
  287. 2960 [152]4:[152]4:[152]4
  288. 2970 [159]7,6,7:[152]7
  289. 2980 [160]4:[160]1:[160]2:[160]7
  290. 2990 [142]
  291. 3000 P1[178]P1[170]D:Q1[178]Q1[171]D
  292. 3010 [139]Q1[179]0[167]Y1[178]0:X1[178]P1:[137]3030
  293. 3020 Y1[178]Q1:X1[178]0
  294. 3030 P2[178]P2[170]D:Q2[178]Q2[171]D
  295. 3040 [139] P2[177]A [167] X2[178]A:Y2[178]Q2:[137]3060
  296. 3050 X2[178]P2:Y2[178]B
  297. 3060 [142]
  298. 3070 [153]"LOADCHANGING FORMS
  299. 3080 PRINT
  300. 3090 OPEN4,6
  301. 3100 OPEN1,6,1
  302. 3110 OPEN2,6,2:PRINT#2,0
  303. 3120 INPUT"ENTER NBR OF STEPS";M
  304. 3130 PRINT"OK..."M" IT IS!"
  305. 3140 PRINT#4,"STEP ";M
  306. 3150 PRINT#1,"M";240,-200
  307. 3160 PRINT#1,"I"
  308. 3170 FORI=1TO4
  309. 3180 READ A,B:X1(I)=A:Y1(I)=B
  310. 3190 NEXT I
  311. 3200 FORI=1TO4
  312. 3210 READA,B:X2(I)=A:Y2(I)=B
  313. 3220 NEXT I
  314. 3230 FORK=0TOM+1
  315. 3240 FORI=1TO4
  316. 3250 AX=X2(I)-X1(I)
  317. 3260 AY=Y2(I)-Y1(I)
  318. 3270 XX(I)=X1(I)+K*AX/(M+1)
  319. 3280 YY(I)=Y1(I)+K*AY/(M+1)
  320. 3290 NEXT I
  321. 3300 FORJ=1TO4
  322. 3310 IFJ=1THENPRINT#1,"R";XX(J);YY(J):       GOTO3330
  323. 3320 PRINT#1,"J";XX(J);YY(J)
  324. 3330 NEXT J
  325. 3340 PRINT#1,"J";XX(1);YY(1)
  326. 3350 NEXT K
  327. 3360 PRINT#1,"M";0,-360
  328. 3370 PRINT#4:PRINT#4:PRINT#4
  329. 3380 OPEN7,6,7:PRINT#7
  330. 3390 CLOSE4:CLOSE1:CLOSE2:CLOSE7
  331. 3400 RETURN
  332. 3410 DATA 150,210,150,170,200,170,200,210
  333. 3420 DATA -200,-90,-150,-90,-150,0,-200,0
  334. 3430 PRINT"[147]ROTATING FIGURES
  335. 3440 [153]
  336. 3450 [159]4,6
  337. 3460 [159]1,6,1
  338. 3470 [159]2,6,2:[152]2,1
  339. 3480 [152]1,"M";240,[171]240
  340. 3490 [152]1,"I"
  341. 3500 TH[178][255][173]180
  342. 3510 X(1)[178]70:Y(1)[178]80
  343. 3520 X(2)[178]90:Y(2)[178]130
  344. 3530 X(3)[178]110:Y(3)[178]130
  345. 3540 X(4)[178]130:Y(4)[178]80
  346. 3550 [129]J[178]0[164]359[169]15
  347. 3560 [129]I[178]1[164]4
  348. 3570 XX(I)[178]X(I)[172][190](J[172]TH)[171]Y(I)[172][191](J[172]TH)
  349. 3580 YY(I)[178]X(I)[172][191](J[172]TH)[170]Y(I)[172][190](J[172]TH)
  350. 3590 [139]I[178]1[167][152]1,"R";XX(I);YY(I):[137]3610
  351. 3600 [152]1,"J";XX(I);YY(I)
  352. 3610 [130] I
  353. 3620 [152]1,"J";XX(1);YY(1)
  354. 3630 [130] J
  355. 3640 [152]1,"M";0,[171]400
  356. 3650 [152]4:[152]4:[152]4
  357. 3660 [159]7,6,7:[152]7
  358. 3670 [160]4:[160]1:[160]2:[160]7
  359. 3680 [142]
  360. 3690 [143] BAR GRAPH: 1520 PLOTTER MANUAL,     PAGE 60
  361. 3700 [134]A$(12)
  362. 3710 [159]4,6,0
  363. 3720 [159]1,6,1
  364. 3730 [159]2,6,2
  365. 3740 [159]3,6,3
  366. 3750 [141]4640
  367. 3760 C[178]1:[141]4610
  368. 3770 [152]1,"M";0,[171]200
  369. 3780 [152]4
  370. 3790 [152]1,"M";20,0
  371. 3800 [152]1,"D";20,200
  372. 3810 [152]1,"H"
  373. 3820 [152]1,"M";20,0
  374. 3830 [152]1,"D";480,0
  375. 3840 [129]I[178]25[164]200[169]25
  376. 3850 [152]1,"M";15,I
  377. 3860 [152]1,"D";20,I
  378. 3870 [130]I
  379. 3880 :
  380. 3890 :
  381. 3900 [129]I[178]1[164]L:[143] FROM LINE 1010
  382. 3910 C[178]I:[141]4610
  383. 3920 H[178]A(I)[172]5:[141]4220
  384. 3930 [130]I
  385. 3940 :
  386. 3950 [129]I[178]1[164]L
  387. 3960 C[178]I:[141]4610
  388. 3970 H[178]A(I)[172]5:[141]4330
  389. 3980 [130]I
  390. 3990 :
  391. 4000 [152]1,"H"
  392. 4010 [152]4
  393. 4020 :
  394. 4030 [129]I[178]1[164]L
  395. 4040 C[178]I:S[178]1:[141]4610
  396. 4050 X[178]0:Y[178]0:B$[178]A$(I):[141]4460
  397. 4060 [130]I
  398. 4070 :
  399. 4080 A$[178]T$
  400. 4090 C[178]3:S[178]2:[141]4610
  401. 4100 X[178]30:Y[178]220:[141]4550
  402. 4110 A$[178]S$
  403. 4120 C[178]2:S[178]1:[141]4610
  404. 4130 X[178]200:Y[178]200:[141]4550
  405. 4140 :
  406. 4150 [152]1,"H":[152]4:[152]4:[152]4
  407. 4160 [152]4:[152]4:[152]4
  408. 4170 [141]4790
  409. 4180 [159]7,6,7:[152]7:[143] RESET PLOTTER
  410. 4190 [160]4:[160]1:[160]2:[160]3:[160]7
  411. 4200 [137]120
  412. 4210 :
  413. 4220 [143]==WRITE BOX==
  414. 4230 [160]15: [159]15,OD,15
  415. 4240 X(I)[178](I[171]1)[172]36[172]2[170]36:W[178]36
  416. 4250 [153]"LOADPRINTING BAR CHART NOW..."
  417. 4260 [152]1,"M";X(I),0
  418. 4270 [152]1,"D";X(I),H
  419. 4280 [142]
  420. 4290 [152]1,"D";X(I)[170]W,H
  421. 4300 [152]1,"D";X(I)[170]W,0
  422. 4310 [142]
  423. 4320 :
  424. 4330 [143]==FILL BOX==
  425. 4340 X(I)[178](I[171]1)[172]36[172]2[170]36:W[178]36
  426. 4350 [152]1,"M";X(I),0
  427. 4360 [129]J[178]0[164]H[169]2
  428. 4370 [152]1,"D";X(I)[170]W,J
  429. 4380 [152]1,"D";X(I)[170]W,J[170]1
  430. 4390 [139]J[170]1[177][178]H[167]4430
  431. 4400 [152]1,"D";X(I),J[170]1
  432. 4410 [152]1,"D";X(I),J[170]2
  433. 4420 [130] J
  434. 4430 [142]
  435. 4440 :
  436. 4450 [143]==CHARACTER Y==
  437. 4460 [152]1,"M";X,Y:[152]4
  438. 4470 SS[178](2[174]S)[172]10
  439. 4480 [129]M[178]1[164][195](B$)
  440. 4490 [152]1,"M";X(I)[170]9,SS[173]5
  441. 4500 [152]4,[202](B$,M,1)
  442. 4510 [130] M
  443. 4520 [152]1,"M";0,SS[172]4[173]5[172][195](B$)[170]SS[172]2[170]Y:    [152]4
  444. 4530 [142]
  445. 4540 :
  446. 4550 [143]==CHARACTER X==
  447. 4560 [152]1,"M";X,Y
  448. 4570 [152]4,A$
  449. 4580 [152]1,"M";X,[171]Y[170]40[172]S:[152]4:[142]
  450. 4590 :
  451. 4600 :
  452. 4610 [143]==COLOR, SIZE==
  453. 4620 [152]2,C:[152]3,S:[142]
  454. 4630 :
  455. 4640 [153][199](147)
  456. 4650 [133] "ENTER YOUR MAIN TITLE:";T$
  457. 4660 [133]"ENTER ANY SUB-TITLE:";S$
  458. 4670 [133]"ENTER NUMBER OF BARS (1-6):";L
  459. 4680 [139]L[179]1[176]L[177]6[167][137]4670
  460. 4690 [129]I[178]1[164]L
  461. 4700 [153]"DATA POINT";I
  462. 4710 [133]"ENTER NAME OF BAR (1-6 CHARS):";A$(I)
  463. 4720 [139][195](A$(I))[177]6[167][137]4710
  464. 4730 [133]"ENTER BAR SIZE (0-40):";A(I)
  465. 4740 [139] A(I)[179]0[176]A(I)[177]40[167]4730
  466. 4750 [130] I
  467. 4760 [142]
  468. 4770 :
  469. 4780 :
  470. 4790 [152]2,2
  471. 4800 [152]4,"DATA POINTS...."
  472. 4810 [129]I[178]1[164]L
  473. 4820 [152]4,A$(I),A(I)
  474. 4830 [130]I
  475. 4840 [129]I[178]0[164]6:[152]4:[130]I
  476. 4850 [142]
  477. 4860 [159]1,3:[159]4,6:[159]3,6,3:[152]3,0:[152]1,[199](19);
  478. 4870 [129]M[178]1[164]25:A$[178]"               "
  479. 4880 [129]L[178]1[164]40:[161]#1,B$:A$[178]A$[170]B$:[130]
  480. 4890 R$[178][199](13):[139]B$[178]R$[167]4910
  481. 4900 [152]4,A$:[130]M:[137]4920
  482. 4910 [152]4,A$;:[130]M
  483. 4920 [152]1:[160]1:[160]4:[160]3
  484. 4930 [142]
  485.